home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 January
/
64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64
/
kreis demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
405b
|
17 lines
5 rem **********************
6 rem * kreis demo (hires) *
7 rem **********************
10 gosub 50000:rem ** grafik ein **
20 gosub 50100:rem ** grafik loeschen **
30 vo=3:hi=0
40 gosub 50200:rem ** farbe setzen **
45 x=20:y=20:x1=319-x:y1=199-y
50 for r=10 to 52 step 2
60 sys 50423,x,y,r,3
65 sys 50423,x1,y,r,3
66 sys 50423,x,y1,r,3
67 sys 50423,x1,y1,r,3
70 x=x+6:y=y+3:x1=x1-6:y1=y1-3
80 next r
90 wait 198,255:gosub 50300:end